home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0867.dms
/
q0867.adf
/
TRAPDOOR.LZH
/
Scripts
/
NList
< prev
next >
Wrap
AmigaDOS Script File
|
1991-09-21
|
2KB
|
48 lines
.key ""
.bra {
.ket }
; Check if a new nodediff / pointnet arrived and process, if necessary
echo "NList 1.1 -- Copyright (C) 1990 by Maximilian Hantsch"
cd nodelist:
; updatenl is used as a flag whether to run TrapList at the end
setenv updatenl FALSE
; Check for nodediff
TrapScan >t:nlist.{$$} directory mail:inbound file nodediff.a?? and tag From 2:310/90.0 lformat "rename %s nodelist:%n"
search >nil: t:nlist.{$$} rename
if not warn
echo "Processing Nodediff"
delete nodelist:nodediff.??? ; remove old diffs
execute t:nlist.{$$} ; rename new diffs to Nodelist:
copy nodediff.a?? files:nodelists ; copy diff to file area
pkax -x nodediff.a?? ; unarc nodediff
setenv updatenl TRUE ; nodelist needs updating
endif
; Check for pointnet
TrapScan >t:nlist.{$$} directory mail:inbound file pointnet.a?? and tag From 2:310/90.0 lformat "rename %s nodelist:%n"
search >nil: t:nlist.{$$} rename
if not warn
echo "Processing Pointnet"
delete nodelist:pointnet.??? ; remove old pointnets
execute t:nlist.{$$} ; rename pointnet to Nodelist:
copy pointnet.a?? files:nodelists ; copy pointnet to file area
pkax -x pointnet.a?? ; unarc pointnet
delete pointnet.a?? ; remove arc'd pointnet
delete pointlst.??? ; remove yuck-converted pointnets
yuck ; convert new pointnet [Yuck!]
setenv updatenl TRUE ; nodelist needs updating
endif
if $updatenl EQ TRUE
echo "*NUpdating Nodelist*N"
TrapList ; fly over the nodelist ...
endif